home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpznewg.zip / TRANSDAT.U < prev    next >
Text File  |  1990-05-11  |  981b  |  23 lines
  1. UNIT TransData;
  2.  
  3. INTERFACE
  4.  
  5.   VAR
  6.     TransferTime,                  (* Startzeitpunkt der Übertragung in Tick's   *)
  7.     TransferSize,                  (* Grösse des zu übertragenden Files          *)
  8.     TransferCount,                 (* Anzahl der schon übertragenen Zeichen      *)
  9.     TransferBytes      : LONGINT;  (* aktuelle Anzahl übertragene Zeichen        *)
  10.  
  11.     TransferName,                  (* Name des zu übertragenen Files             *)
  12.     TransferCheck,                 (* Bezeichnung des Checksummen-Verfahrens     *)
  13.     TransferMessage    : STRING;   (* Meldungen der Transferroutine              *)
  14.  
  15.     TransferTotalTime,             (* Voraussichtliche Übertragungsdauer in Sek. *)
  16.     TransferBlockSize,             (* Grösse des letzen Datenblockes             *)
  17.     TransferError      : WORD;     (* Anzahl der erkannten Übertragungsfehler    *)
  18.  
  19.     FileAddition       : (NewFile,RecoverFile,ReplaceFile);
  20.  
  21. IMPLEMENTATION
  22.  
  23. END.